home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / BMWICA$H.BAS < prev    next >
BASIC Source File  |  2000-09-26  |  394b  |  30 lines
  1. open "d:\bmwi.sav" for binary as #1
  2. neu&=50000000
  3.  
  4. seek #1,23133
  5. get$ #1,4,x$
  6. print cvl(x$)
  7. seek #1,23133
  8. put$ #1,mkl$(neu&)
  9.  
  10. seek #1,23137
  11. get$ #1,4,x$
  12. print cvl(x$)
  13. seek #1,23137
  14. put$ #1,mkl$(neu&)
  15.  
  16. seek #1,23141
  17. get$ #1,4,x$
  18. print cvl(x$)
  19. seek #1,23141
  20. put$ #1,mkl$(neu&)
  21.  
  22. seek #1,23145
  23. get$ #1,4,x$
  24. print cvl(x$)
  25. seek #1,23145
  26. put$ #1,mkl$(neu&)
  27.  
  28. close #1
  29. end
  30.